home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
tx072291.zip
/
TXFONTS.PRG
< prev
next >
Wrap
Text File
|
1991-07-22
|
9KB
|
210 lines
*:*********************************************************************
*:
*: Program: TXFONTS.PRG
*:
*: System: Texas Associated Software Laser Library
*: Author: Jose E. Lopez, Jr.
*: Copyright (c) 1991, Texas Associated Software - Red Oak, TX
*:
*:*********************************************************************
txinit()
txreset()
txafs36a() && Set font to AFS 3.4 point
txcolprint(01, 10, .F., "Font AFS 3.4 point 27.28 cpi")
txcour10br() && Set font to Courier 10 point Bold
txcolprint(03, 10, .F., "Font Courier 10 point Bold 12 cpi")
txcour10ir() && Set font to Courier 10 point Italic
txcolprint(05, 10, .F., "Font Courier 10 point Italic 12 cpi")
txcour10r() && Set font to Courier 10 point
txcolprint(07, 10, .F., "Font Courier 10 point 12 cpi")
txcour12br() && Set font to Courier 12 point Bold
txcolprint(09, 10, .F., "Font Courier 12 point Bold 10 cpi")
txcour12ir() && Set font to Courier 12 point Italic
txcolprint(11, 10, .F., "Font Courier 12 point Italic 10 cpi")
txcour12r() && Set font to Courier 12 point
txcolprint(13, 10, .F., "Font Courier 12 point 10 cpi")
txcour12br() && Set font to Courier 12 point Bold
txcolprint(15, 10, .F., "Font Courier 12 point Bold 10 cpi")
txcour12ir() && Set font to Courier 12 point Italic
txcolprint(17, 10, .F., "Font Courier 12 point Italic 10 cpi")
txcour12r() && Set font to Courier 12 point
txcolprint(19, 10, .F., "Font Courier 12 point 10 cpi")
txhl10br() && Set font to Helvetica 10 point Bold
txcolprint(21, 10, .F., "Font Helvetica 10 point Bold")
txhl10ir() && Set font to Helvetica 10 point Italic
txcolprint(23, 10, .F., "Font Helvetica 10 point Italic")
txhl10r() && Set font to Helvetica 10 point
txcolprint(25, 10, .F., "Font Helvetica 10 point")
txhl12br() && Set font to Helvetica 12 point Bold
txcolprint(27, 10, .F., "Font Helvetica 12 point Bold")
txhl12ir() && Set font to Helvetica 12 point Italic
txcolprint(29, 10, .F., "Font Helvetica 12 point Italic")
txhl12r() && Set font to Helvetica 12 point
txcolprint(31, 10, .F., "Font Helvetica 12 point")
txhl12br() && Set font to Helvetica 12 point Bold
txcolprint(33, 10, .F., "Font Helvetica 12 point Bold")
txhl12ir() && Set font to Helvetica 12 point Italic
txcolprint(35, 10, .F., "Font Helvetica 12 point Italic")
txhl12r() && Set font to Helvetica 12 point
txcolprint(37, 10, .F., "Font Helvetica 12 point")
txhl12sba() && Set font to Helvetica 12 point SemiBold
txcolprint(39, 10, .F., "Font Helvetica 12 point SemiBold")
txhl14sba() && Set font to Helvetica 14 point SemiBold
txcolprint(41, 10, .F., "Font Helvetica 14 point SemiBold")
txhl6r() && Set font to Helvetica 6 point
txcolprint(43, 10, .F., "Font Helvetica 6 point")
txhl8sba() && Set font to Helvetica 8 point SemiBold
txcolprint(45, 10, .F., "Font Helvetica 8 point SemiBold")
txlg12br() && Set font to Letter Gothic 12 point Bold Roman-8
txcolprint(47, 10, .F., "Font Letter Gothic 12 point Bold 10 cpi")
txlg12br() && Set font to Letter Gothic 12 point Italic Roman-8
txcolprint(49, 10, .F., "Font Letter Gothic 12 point Italic 10 cpi")
txlg12r() && Set font to Letter Gothic 12 point Roman-8
txcolprint(51, 10, .F., "Font Letter Gothic 12 point 10 cpi")
txlg14a() && Set font to Letter Gothic 14 point Ascii
txcolprint(53, 10, .F., "Font Letter Gothic 14 point 10 cpi")
txlg14lg() && Set font to Letter Gothic 14 point Legal
txcolprint(55, 10, .F., "Font Letter Gothic 14 point Legal 10 cpi")
txlg96r() && Set font to Letter Gothic 9.6 point Roman-8
txcolprint(57, 10, .F., "Font Letter Gothic 9.6 point Legal 16.67 cpi")
txcour12r() && Set font to Courier 12 point
txcolbox(59, 01, 79, 03, 1, 5)
_line = txbold("***** If you do not have font available, the HP LaserJet will print *****")
txcolprint(59, 01, .F., _line)
_line = txbold("***** the font whose characteristics most closely match the font *****")
txcolprint(60, 01, .F., _line)
_line = txbold("***** you selected. *****")
txcolprint(61, 01, .F., _line)
txpsource(0) && Print current page
txlnprt85() && Set font to Line Printer 8.5 point 16.67 cpi
txcolprint(01, 10, .F., "Font Line Print 8.5 point 16.67 cpi")
txpe10blg() && Set font to Prestige Elite 10 point Bold Legal
txcolprint(03, 10, .F., "Font Prestige Elite 10 point Legal 12 cpi")
txpe10br() && Set font to Prestige Elite 10 point Bold Roman-8
txcolprint(05, 10, .F., "Font Prestige Elite 10 point Roman-8 12 cpi")
txpe10ilg() && Set font to Prestige Elite 10 point Italic Legal
txcolprint(07, 10, .F., "Font Prestige Elite 10 point Italic Legal 12 cpi")
txpe10ir() && Set font to Prestige Elite 10 point Italic Roman-8
txcolprint(09, 10, .F., "Font Prestige Elite 10 point Italic Roman-8 12 cpi")
txpe10lg() && Set font to Prestige Elite 10 point Legal
txcolprint(11, 10, .F., "Font Prestige Elite 10 point Legal 12 cpi")
txpe10ma() && Set font to Prestige Elite 10 point Math
txcolprint(13, 10, .F., "Font Prestige Elite 10 point Math 12 cpi")
txpe10r() && Set font to Prestige Elite 10 point Roman-8
txcolprint(15, 10, .F., "Font Prestige Elite 10 point Roman-8 12 cpi")
txpe7lg() && Set font to Prestige Elite 7 point Legal
txcolprint(17, 10, .F., "Font Prestige Elite 7 point Legal 16.67 cpi")
txpe7ma() && Set font to Prestige Elite 7 point Math
txcolprint(19, 10, .F., "Font Prestige Elite 7 point Math 16.67 cpi")
txpe7r() && Set font to Prestige Elite 7 point Roman-8
txcolprint(21, 10, .F., "Font Prestige Elite 7 point Roman-8 16.67 cpi")
txprs14ba() && Set font to Presentations 14 point Bold Ascii
txcolprint(23, 10, .F., "Font Presentations 14 point Bold Ascii 10.00 cpi")
txprs14blg() && Set font to Presentations 14 point Bold Legal
txcolprint(25, 10, .F., "Font Presentations 14 point Bold Legal 10.00 cpi")
txprs16ba() && Set font to Presentations 16 point Bold Ascii
txcolprint(27, 10, .F., "Font Presentations 16 point Bold Ascii 8.11 cpi")
txprs16blg() && Set font to Presentations 16 point Bold Legal
txcolprint(29, 10, .F., "Font Presentations 16 point Bold Legal 8.11 cpi")
txprs18ba() && Set font to Presentations 18 point Bold Ascii
txcolprint(31, 10, .F., "Font Presentations 18 point Bold Ascii 8.11 cpi")
txprs18blg() && Set font to Presentations 18 point Bold Legal
txcolprint(33, 10, .F., "Font Presentations 18 point Bold Legal 8.11 cpi")
txtax12bld() && Set font to Tax 12 point Line Draw
txcolprint(35, 10, .F., "Font Tax 12 point Bold Line Draw 10 cpi")
txtr10br() && Set font to Times Roman 10 point Bold Roman-8
txcolprint(37, 10, .F., "Font Times Roman 10 point Roman-8")
txtr10ir() && Set font to Times Roman 10 point Italic Roman-8
txcolprint(39, 10, .F., "Font Times Roman 10 point Italic Roman-8")
txtr10ma() && Set font to Times Roman 10 point Math
txcolprint(41, 10, .F., "Font Times Roman 10 point Math")
txtr10r() && Set font to Times Roman 10 point Roman-8
txcolprint(43, 10, .F., "Font Times Roman 10 point Roman-8")
txtr12br() && Set font to Times Roman 12 point Bold Roman-8
txcolprint(45, 10, .F., "Font Times Roman 12 point Roman-8 12")
txtr12ir() && Set font to Times Roman 12 point Italic Roman-8
txcolprint(47, 10, .F., "Font Times Roman 12 point Italic Roman-8")
txtr12r() && Set font to Times Roman 12 point Roman-8
txcolprint(49, 10, .F., "Font Times Roman 12 point Roman-8")
txtr14br() && Set font to Times Roman 14 point Bold Roman-8
txcolprint(51, 10, .F., "Font Times Roman 14 point Roman-8 12")
txtr8ma() && Set font to Times Roman 8 point Math
txcolprint(53, 10, .F., "Font Times Roman 8 point Math")
txtr8r() && Set font to Times Roman 8 point Roman-8
txcolprint(55, 10, .F., "Font Times Roman 8 point Roman-8")
txcour12r() && Set font to Courier 12 point
txcolbox(59, 01, 79, 03, 1, 5)
_line = txbold("***** If you do not have font available, the HP LaserJet will print *****")
txcolprint(59, 01, .F., _line)
_line = txbold("***** the font whose characteristics most closely match the font *****")
txcolprint(60, 01, .F., _line)
_line = txbold("***** you selected. *****")
txcolprint(61, 01, .F., _line)
txclear()
*: EOF: TXFONTS.PRG